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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 
® 
ea 
+4 +d 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
i Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER + 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. > 
® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iv AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. 2 
* 
® 
“ 
om 
*® 
* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Vee eR RAR ARAAAA AREA AAAAAA ARATE AA AA AAA 
' 


pew lala lala lalolelealelololeolelolelolelelelelolelolelolol elo! a) 
+ 


Sete Se Ge Ge Ge Ge Ge Se Ge Se Se Se Se Ge Se Se Se Se Se Se Se Se SeSeasteasteeseas 
=OOODNAUS WN —OVONOUS WI OOM 


SSS8838SSS8883388sssssssss 
WIPO PIPINININININPINID 2 OO OO eS "OO 


Be Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Ge Ge Ge Fe Ge FH Ge Se Ge Se Ge Ge Ge Ge Be Se Se Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Fe Se Se Ge Fe Se Sse ee te ee 


RRRERRER RL GAGG ages 


MAMI 


SS 


3 
WINS OONAUS WN" OOODNOUES WN" OOONOUS Wr 


S 


Seeeeee 


SoooOCOSOOOSOOOOOOCOSCOCCOOSOOOSSSOSSOSOCSOCOCOSGOOOCOOOOOOCOCOOOOCOCOCOOO 


a 
am 


1BoBenct9ee 23:09:55 vanedy ties 


TBKRST.BEG = Runtime SYmbol Table Literals and Structures 


Revision History: 


01 
02 


03 
04 


05 


06 


07 
08 
09 


10 
11 


12 


13 
14 


15 


16 


17 


MTT, 


21-july-77 
28-july-77 


02-AUG-77 


03-AUG-77 


10-AUG-77 
18-aug-77 
13-sept-77 


15-09-77 
20-sept-77 


21-sep-77 


23-sep-77 
27-sep-77 


28-sep-77 
14-OCT-77 


27-oct-77 


KGP 
KGP 


KGP 
KGP 


KGP 


KGP 


KGP 
KGP 
KGP 


CP 
KGP 


KGP 


KGP 
KGP 


KGP 


KGP 


KGP 


-Put sopesper the initial version of this file. 
“Changed all the data structure definitions 
ee that now FIELD and FIELD SETs are 


sed. 
“Switched over to using SRM yjeneecy neges 
for the 4 record types. (Appendix 
sytersed ue a RST_MC structure for MS MC 
sng tege of BLOCK,”~and changed RST_MC and 
ST_NT structs to use an EXTERNA L"LITE RAL 
for the relocation, instead of o- ordinary 
external, DBGSGL_RST_PTR. 
“Reorganized NT ad met structures so that 
the shared fields were alligned so that we 
could look at any arbitrary record and 
deduce whether it was an NI or an MC record. 
“Added field names to NT and MC structures so tha 
we can pick up the address of the symbol names 
This is an incompatible change to previou 
versions of ind file because the old field name 
no longer ex 
"aes he Sefinition of GST record and 


~hiped” the record pd ala for BLISS 
type Zero oF rec 
“nated the _ $ GLOBAL flag definition to 
RECORDs a NT_RECORDs, and stopped 
~ the special NT TYPE value to indicate 
that a symbol is glo 
-Also moved the flag fields in MC_RECORDs 
around so that the records are 1 byte shorter. 


Added PC correlation record type. 


-Changed os} TYP_LOWEST and _HIGHEST 
as 10w we handlé so-called SRM types for 
RST buildin 
-Increased MAX _SAME_SYMBLS from 10 tO 25 to 
try and fix a user=reported error which is 
caused when >10 symbols hash to the same value. 
~tnanged the shele on structure Ry 4 ond SAT, 
added comments here uaeat 
~Added the non-mars oo ft Mo ope OSC K soitee “Ste 
to the DST ty a col ection since we now (5% 
support that 
oketbaestned’ the SAT and LVT structs so that they 
are alligned wrt _NT_PTR and _VALUE/_LB so that 
they can share a Common sort fout aes 


-Added eee new data descriptor t Res. 

ARRAY _BNDS_DESC and SYM_V Lue aire Also 
added’ the ACCS ups types th S$ records. 
“We now use the nel OBAL of 


records. since we now have a a 
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v 
18 28-OCT-77 KGP “Added MC or Sat GE field nd MC Seterdas 
Also set up NT_not_free, NT_free and mC. free 
jelds, so th hat. it is now clearer 
ust how these ‘common’ (NT/MC) bits 
nterrelate. 
19 01-nov-77 KGP -Took away the docu and definition 
the now-defunct DUPLICATION_ VECTORS 
20 02-nov-77 KGP -Took the definition of the 9 obal literal 
DBG$_RST pete 0,848 § of this le and put it 
because orneryise the 
Tw Ay caeolst ns about multi pt 4 defined 
gieseis singe ch this file is REQUIREd 
n several 
21 3-NOV-77 KGP “Carol took out “alt references to A_LONGWORD 
and changed them to Zupval. 
-I changed the oPVALO NT PT VALU_DESCRIPTOR field 


U t ID R for the benefit 
of DBGS$SET SCOPE. 
22 = 9=nov-77 KGP “Added the AC_NT STORAGE field to afte. and the 
definition of VECT_S R_DESCs, which we 
now use to manage Se-cot laa ‘vector storage’ . 
23. 14-nov-77 KGP “NT records are now doubly-Llinked into hash chains. 
24 = 15-nov-77 KGP “reorganized NTs and MCs so chet NT names comes at 
the end so that NTs can be variable-sized. 
25 16=nov-77 KGP ~Added the new storage descriptors 
to MCs so that we can associate LVT 
and SAT storage with MCs. 
-Threw away the old net ion of SAT_COUNT being 
a SAT_RECORD field for future use. 


26 =17=nov-77 KGP “Added the SAT and LVT control Literals to 
su poort the new GET -NEXT tet routines. 
27 =19=nov-77 KGP ~Added the field, SL- FREE LINK, to SAT 
records. (and, “apt Tet tly, to yt records). 
28 1-nov-77 KGP -Added to be used by add_module 
29 2-nov-77 KGP anes Be a ttit MSTOR.L ONG_PTRS, of each vector 
storage descriptor aakes” mcs $ bytes longer. 
30 28-nov-77 KGP -Added MC_IS_DYING field to MC records. 
SL_ACCE_MORE chan anges ¢ to SL_ACCE_FREE 
1 \¢-dec-77 KGP “Added Trteral RS OFFSET 
: 13-DEC-77 KGP ~Added NT_IS_BOUNDED tts, bit to NTs 
29-12-77 cP Add a field name to nt_record to describe 
the Mi. ield of a GST name table entry. 
34 13-JAN-78 DAR Renoved ¢ the Literals mars-module, fortran module, 
$s ule and put them in DBGGEN 
35 02-feb-78 _ KGP “New SIZE“Literals for overall DST chertatactaltes 
so that ve. a avoid overflow due to 
too many M 
$$ 15-feb-78 KGP “New sub types Ly pete ACCESS 
7 8-mar-78 KGP -Stole th G fo uge for _lnace 


so that the two 7 rene) nN sep 
-Commented out some of the DSC detin tions 
38 09-NOV-78 DAR Added new DST reco ord, ty e declaration 
s they now appear in SYSDEF.REQ f naily. 
39 06-JAN-81 DLP added new OST and SRA types 
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Since the DEBUG free-storage manager currently 

works in ‘units’, we define the following macro to 
convert a pant. Quantity into whatever units it 
requires. We paper’ to change the free-storage manager 
o work in ares units, so eventually this macro should 
ust reduce to its actual peer: For now, however, 
t ‘rounds up’ to the smal qst number of LONGWORDS 

“hb are required to contain the indicated number of 
ytes. 


MACRO 
RST_UNITS( bytes ) = 


( ((bytes) + Zupval-1)/Xupval ) 


MACROS: 
MACRO 
YES_NO( question ) 
! Ask a question and return the Y/N answer. 
QUERY( UPLIT( ZASCIC question )) %; 
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+ 
RST=-Pointers. 


So-called RST-pointers are referred to throughout the RST 
code. They are simply the means of access to RST data 
structures, and we purposely talk of them as if they were 
their own TYPE so that we can change this implementation 
detail if/when we feel it is necessary. 


For now, RST-pointers are 16-bit items which are manipulated b 

the special RST storage routines DBGSRST_FREEZ and DB $RST_RELEASE. 
No code outside of the g bs pilin o's interface nodule knows 

onyen ng more about the implementation of RST-pointers than that. 
(Other modules declare and use RST-pointers via macros, etc.) 


If “ change is to be made to what RST-pointers actually 

are, there are only 2 criterion that the new ones much uphold: 

1) RST-pointers must be storable in the NT, MC, SAT and LVT fields 
which are defined for them, and 2) they must be able to provide 
access to the RST_NT and RST_MC structures defined below. 


The following macro is provided so that one can declare REFs 

to such pointers. Some code also apps res ZSIZE to this macro 

to get the size of an RST-pointer. Note that no code should 
declare an occurrence of an RST-pointer, since we do not define 
that you can do anything meaningful with such a thing. This is 
because we want to enforce the usage of REFs to the structures 
we declare to access RST data structures. (e.g. we use 

“REF MC_RECORD"’ to say that we are declaring a pointer to 

an MC record. REFs to MC_RECORDS also happen to be RST-pointers, 
but we don't want to build-in this coincidental characteristic.) 


Si te te tet et ee ee ee ee ee ee ee ee ee i ee te 


RST_POINTER = VECTORC1,WORD) %; 


Oooo 
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Pathnames 


Symbols in DEBUG are actually made up of sequences of 

symbols or ‘‘elements’’. The concatenation of such 

elements, along with the element separation character (\), make 
up a so-called pathname because the sequence represents the 
path which one must make thru RST data structures to get to 

the desired symbol. 


We represent strings internal to DEBUG by passing around 
so-called counted string pointers. They are simply LONGWORD 
peincers to a count byte followed by that many characters. 

he CS_POINTER macro allows us to declare occurrences, REFs, 
and take the %SIZE of this type of datum. 


Pathnames, then, are represented with vectors of CS_POINTERS. 
Like duplication vectors, they terminate with a 0 entry 

for programming ease, but also have a maximum size so that 
we can declare them LOCALLy. 


The following macros are used in declarations to not build-in 
the above conventions. 


MACRO 
: DEBUG tells the RST module about ASCII 
! str ngs b pecerang a counted string pointer. 
CS_POINTER = REF VECTORC1,BYTEJ 2; : 


' Symbol pathnames are O-ended vectors 

' of CS_POINTERs. There is a maximum 

! Length to pathnanes so that routines can 

! declare LOCAL vectors of pathname pointers. 


LITERAL 
MACRO 


MAX_PATH_SIZE 
PATHNAME _VECTOR 


10; 
VECTORC MAX_PATH_SIZE +1, %SIZE(CS_POINTER) J 2%; 


te 
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'+ ' 
Overall Characteristics of the RST/DST, etc. 


14 

' The DEBUG Runtime Symbol Table (RST) free-storage area 

! begins at a fixed virtual address. This LITERAL is used 
! directl by some of the RST structures since RST-pointers 
: need this information. 


LITERAL 


WN OOONOULS Wino 


POCO MMMNMNUIVIVIVIVIVT 


! The RST is a fixed size - but this fact is onl: 

! used to allow us to set the other _SIZE Literals 

' below in such a way that we can say that the various 
! RST uses will be percentages of the total size. 


RST_TOTAL_SIZE = 65000, ! RST is 65K bytes. 


When we SET MODULe, we will not take absolutely 

all the free storage that is available. Instead, we 
will keep adding modules so long as the amount of 
free storage left (before we add the module) is 
atleast RST_AVAIL_SIZE bytes. 


RST_AVAIL_SIZE = 3000, ! Storage left over for DEBUG itself 

} buring RST init, we take spece for only as many MCs 

' as will leave RST_MODU_S1Z axes for subsequent t 
! SET MODULes. Currently the MC space is 50% of the RST. 


RST_MODU_SIZE : = (RST_TOTAL_SIZE-RST_AVAIL_SIZE)/2, 


oO 
MPMIPIPIPOPIPUNPOPoNnofPenofnonopoporpornsprnnrn 


dd? te bn ee i 


wr 


The SAT and LVT are allocated contiguous storage 


POPPERS POPOPOPPofyorforforofonofory 


| 
| 
| 
H 
84 i on a per-module basis by tallying up the number of 
85 ! SAT/LVT entries needed for that module. 
My] ! The ros Loving two minimums are used to begin the 
8 ! tally so that the tables will actually be somewhat 
88 ! Larger than what the MC data implies. The SAT and LVT 
89 ! minimums must be at least 1 so that we will never ask 
+ ! the free storage manager for 0 bytes. 
9 SAT_MINIMUM = 10, ! Minimum number of SAT entries. | 
a7 LVT_MINIMUM = 10, ! Minimum number of LVT entries. 
95 ! The NT, however, has no such fixed size. MC statistics 


: gathering tallies vp the number of NT entries, though; 
! we begin such a tally at NT_MINIMUM. 


NT_MINIMUM = 0, ! Minimum number of NT entries. 


1 We will use byte indices to fetch RST-pointers to the NT 
! from the NT hash vector. This vector, then, must contain 
! NT_HASH_SIZE entries, each of which must be large enough - 
! to store an RST-pointer. See BUILD_RST() in 00 RST.B 
! Also see field NT_FORWARD of the NT record definition 

ng ne UNLINK_NT_RECS. 


S33 
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NT_HASH_SIZE = XX'FF’, ! NT hash vector size. 


1 We will never print payne *atiset when the 
: upper bound for are "is 0 and when 
! the offset is greater than RST_MAX_OFFSET 


RST_MAX_OFFSET = %X'100'; 


'+ 
' Since scope definitions are recursive, we must 

i stack ROUTINE BEGINS in the routine ADD_MODULE. 

' It is no coincidence that this stack Limit is the 
! same as the Limit on the Length (in elements) of 
: symbol pathnames. 


LITERAL 
MAX_SCOPE_DEPTH = MAX_PATH_SIZE; ! Routines can be nested to a maximum depth. 


OOOooo0oo 
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formats, the RST modules use a few more descriptors 
of its own invention. They are as follows: ° 


' 
i 
i 
Just as the SRM defines various ‘system wide’ descriptor 
i 
i 


1o¢ 

Value Descriptors 
Value Descriptors are used to pass around all needed 
information about a value which has been obtained 


rom the RST data base. for now they are simply 
-longword blocks: 


teee==longword------! 


i NT_PTR } | 


i actual value i 


Value Descriptors must be accessed via the following 
field names. 


. 
' 
. 
' 
. 
' 
. 
i} 
. 
' 
. 
J 
. 
' 
. 
J 
° 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
7 
loo 
. 


FIELD 
VALU_FIELD_SET = 
VALU_NT_PTR = f 0,0,16,0 }: ' Associated NT pointer. 
_ VALU_ VALUE = 2,0,32,0 ! The actual value. 
1+ . 


! Declare an occurrence or REF to @ VALUE_DESCRIPTOR 
via the following macros. 


LITERAL 
VALU_DESC_SIZE = 8; ! Each one is 2 longwords long. 


MACRO 
VALU_DESCRIPTOR = BLOCKE VALU_DESC_SIZE, BYTE J] FICLD( VALU_FIELD_SET ) 2%; 


Bete ee Se Se Se Ge Sse Se Oe Ge ee Oe Be Se Se Se Se Se Se OH Se Se Se Ge Se Se te Sees Sete Ge Ce Ge teas 


ee Sn | 


DOQOOCOCCOCOCOCOSO 


MEN -OOONOUS Wry 


8 
88 
389 


QSEARANSLS 


Oo 
Cony 


OOoooocccccoco 


FSW 


RAaVLSS 


COOOOOSGOOSOSOSOSSOOCOSOCOOOOSCOOOOOOOOOOOOCO 


SEreres 


332: 
S23 


uw 


+ 
+ 


An arra 
informa 


FIELD 


ti 


Array Bounds Descriptor 
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bounds Descriptor is used to pass around all needed 


on about an array and its asso 


Like VALU_DESCRIPTORs, they are simply 


but this might change. 


. l eseeeceeeeeeeoeeeeece ! 
address of array 


, ARRAY_BNDS.SET = 
ARRAY_ADDRESS = ( 0,0,32,0 J, 
0,32,0 J 


ARRAY-LENGTH == 


14 


ated dimensions. 
-longword blocks, 


Such Descriptors must be accessed via the followiitg 
field names. 


! Beginning address of array. 
! Size, in bytes, of array. 


4 


! Declare an occurrence or REF to an array bounds 
descriptor via the following macros. 


LITERAL 


ARRAY_BNDS_SIZE = 8; 


MACRO 


! Each one is 2 lLongwords long. 


1 
$ 


Bl 
UA 
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ARRAY_BNDS_DESC = BLOCKC ARRAY_BNDS_SIZE, BYTE ] FIELD( ARRAY_BNDS_SET ) %; 


s- 
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; ees ++ $ 
3 ret : Vector Storage Descriptors ; 
; tig i So-called 9 yter storage’’ is the storage which ; 
: 41 ! we allocate in relatively large chunks for the ; 
: 414 ! explicit purpose of subsequen ly re-allocating the same storage : 
; Bei? ; to someone else in smaller, variable-sized chunks. : 
: bei? i this facility has been implemented to interface between ; 
>; 0418 O { the way that the standard DEBUG storage manager 

>; 04619 0O ! works, with the way that the RST rout nes really 

; 8 0 8 ! want to ‘allocate’ storage. We satisfy the former by 

; 421 ! only asking for large chunks sy paying the 

; 604 ¢ 8 : associated overhead), and we satisfy the latter by 

; 04 ! ‘doling’ out small-sized chunks with Little overhead. 

; 0424 8 ! We can do this because we never have to freeup these 

3 be 2 8 chunks so don't have to store the would-be-needed pointers, etc. 

: 0427 0 !==%size(RST_POINTER)=-! 

: 0428 O { 

; 0429 0 ' Pewee (i.e. word) ------ ! 

: 0430 0 ‘ 

; bese OC I PIR type | 

3 ' ! e! 

3 : ' beginning o age ! 

e 0435 0 ' 4 _ ee I SS Srunege . 

>; 0436 0 : ! end of STORage ! 

3 0437 0 ' , new e mown ae Se ee ee oe ' 

3 438 0 ‘ ' nxt free rec in STOR ! 

P 439 0 ' { @eeeeoeeeoeeere ee De ; 

: 0440 0 ! 

:; 0441 0O ! Such descriptors are accessed via the 

3 Bees 8 following field names. 

: deca 0 i The ‘begin’ field is the one which various routines 

; Beez 8 look at to decide if the field descriptor is valid. 

: 0447 0 

; 0448 0 FIELD 

3 ee . . STOR_DESC_SET = 

: 51 0 STOR_LONG_PTRS =({ 0,0, 8,0], ' Pointer type. 1 => full word pointers, 

3 52 !  Q => RST-pointer access. 

: 53 STOR_BEGIN_RST = 1,0,16,0 J, ' RST pointer to beginn ng of storage. 

; 54 STOR_END_RST = ° 19-8 ° ! RST pointer to end of storage. 

3 55 STOR_MARRER = 0,16, ! Current place in storage. 

3 2$ ws, ! (RST pointer to next available byte). 

; 38 '¢ 

; 60 !' Declare an occurrence or REF to a vector storage 

: $} descriptor via the following macros. 

e§ aa, 

: 65 STOR_DESC_SIZE = 7; ! 3 RST pointers take 6 bytes; 
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! the pointer-type byte takes 1 more. 
MACRO 


VECT_STORE_DESC = BLOCKE STOR_DESC_SIZE, BYTE J] FIELD( STOR_DESC_SET ) %; 
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; 0470 ++ 

> 0471 ! The Module Chain (MC) is a chain of fixed-size 
: be o§ records each of which has an RST_MC structure: 
; 0474 0 \<byte><byte>!<byte><byte>! 

; Bc76 6 | ennnnannn-n- |aewennnn---- 

3 7 ; 'x!flags!type! Next MC : 

; 0478 Q ' l enwnececesee | emenenwennne ! 

: oh $4 0 } DST Pointer } 

: 9481 0 i i mumber of NT entries ' 

3 4 : ‘e-paper joeer ypeeee : 

3 0688 8 ' ! first name bytes ! count! 

> 0484 i eennnnnnnne= leweencannne= 

; Rent 8 } more name bytes 

: 0687 9 more name bytes | 

; 0489 0 more name bytes 
: 0491 5 } vector storage descriptor for NT recs ; 
: 0493 0 } vector storage descriptor for SAT recs 
: 0495 6 vector storage descriptor for LVT recs 
; b97 9 number of SAT entries ; 
: 0499 0 i i pumber of LVT entries | 

ae: 2 hee rene Aer teat : 

: B208 8 i The reason for using our own structure here, 

3 828 ! (instead of a BLOCK), is because we access 

3 504 0 ! MC records with RST-pointers. 

: 0507 9 LITERAL 

; 0508 QO ! MC records are fixed-size. 
: 298 0 RST_MC_SIZE = 57; ! Each one takes this many bytes. 
: 0511 6 STRUCTURE 

; 21§ RST_MC C off, pos. siz ext: N=1, unit=1 ] = 
; 313 CN * RST_MC_SIZE 

; 315 1 BEGIN 

; 319 EXTERNAL LITERAL TBK$_RST_BEGIN; 

; 318 RST_MC + TBK$_RST_BEGIN 

3 51 )+ octeuntt 

; 3 END <pos, siz, ext> 

: 9858 ts 

3 2 3 : MC records have the following fields. 

: 0526 
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; O5er7 FIELD H 
3 Be 3 - MC_FIELD_SET = : 
; 08 0 | wee Some fields (up to NAME_ADDR) must be alligned : 
; be : with the corresponding Ones in RST_NT structures. ; 
: 05 MC_NEXT = 0.16,0 J, ! Next MC record in chain. 3 
>; 0534 MC_TYPE = E $9. 35 i: ! OST record $yP k : 
3 @339 ' Must be DSCSK_DTYPE_MOD : 
; 0536 0 MC_1S_GLOBAL e{ 5.0, 1,1 2. ! 0, for ‘normal’ MCs. 1 for the : 
; 0537 0 ! MC record we ‘hang’ globals off. : 
; 0538 8 MC_IN_RST = 35,3, 3.9 2, ! Whether or not phis module 3 
; 0539 ! has been initialized into the RST. $ 
; 0540 0 MC_IS_MAIN et Bede Vet de ! Whether or not this module : 
; 0541 O ! contains the program's transfer 3 
: 0542 0 | _ address. ; 
; 0543 0 MC_LANGUAGE BE Fede 3.0 J, ! 3-BIT encoding of the Language $ 
; 0544 0 ! which the module is written in. 3 
; 0545 0 MC_IS_DYING e{ 3.4, 1.8 2, ' Vector storage for this MC is 3 
>; 0546 0 ! about to be freed up. ; 
; 0547 O MC_not_free = f Sats V0 Je ! Used in NTs only. ; 
: 0548 0 MC“DST“START =(C 4,0,30,0 4, ' Record 1D of first record for this module. ; 
: 0549 0 MC_NAMES = 8-056) }: ! Number of NT records required. : 
; 0550 0 MC_NAME_CS = [({ 12,0, 8,0 J, ! Name of Module is a counted string. : 
; 0551 O ! A dotted reference to this field picks : 
3 Beeg 0 ! up the count, an undotted one : 
; 0555 O ! addresses the counted string. : 
>; 0554 0 MC_NAME_ADDR = ( 13,0, 8,0], ! The name string itself. An undotted 3 
; ss © ' reference to this field addresses : 
; 0556 0 ' only the MC name, a dotted reference : 
3 er e4 8 ! picks up the Ist character of the name. ; 
3 Beep 8 ! #e* leave up to byte 27 inclusive for _NAME_ field. : 
; 0561 0 MC_NT_STORAGE =(C 28,0, 8,0], ! Vector storage descriptor for NT records. 3 
; 3206 0 ! A direct reference to this field is : 
; B20 : gquivatent to the STOR_LONG_PTRS : 
; re ! field of the storage descriptor. : 
3 0366 8 ! ##* Leave up to byte 34 inclusive for _NT_STORAGE field. : 
; 0568 0 MC_SAT_STORAGE = (C 35,0, 8,0], ! Vector storage descriptor for SAT records. ; 
3 4 0 ! A direct reference to this field is 3 
: 570 ! eguivalent to the STOR_LONG_PTRS : 
3 a ! field of the storage descriptor. : 
; 378 ! ##* leave up to byte 41 inclusive for _SAT_STORAGE field. : 
; ba78 MC_LVT_STORAGE = ([ 42,0, 8,0], ! Vector storage descriptor for LVT records. : 
3 278 ' A direct reference to this field is : 
; 57 ‘ equivalent to the STOR _LONG_PTRS 3 
; 378 ! field of the storage descriptor. : 
; 280 ! #e@ leave up to byte 48 inclusive for _LVT_STORAGE field. : 
; 605 ¢ MC_STATICS = f 49.0.32.1 1. ' Number of SAT records required. ; 
3 5 MC_LITERALS = ( 53,0,32,1 ! Number of LVT records required. : 
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TES; 


14 
- You declare an occurrence or REF of an MC datum via: 


MACRO 


fololelelejloelolo) 
PUPS 


~O 000000000 


 CSSSSEAS 


pole le lelolololoa} 


MC_RECORD = RST_MCC RST_MC_SIZE, BYTE ] FIELD( MC_FIELD_SET ) %; 
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The Name Table (NT) is a set of doubly-Linked records 
with the following format: 


'<byte><byte>!<byte><byte>! 


i DST Pointer i 


! back hash | forw hash 
first name bytes ! count | 


more name bytes | 
more name bytes 


n 
= =P ts on oe eee res a ' See aeraoeraasaes 


i more name bytes | 


Since access to such records will be via so-called RST-pointers, 
(16-bit pointers which we always add a global to before using) 
ye ere the following structure to localize this implementation 
etail. 
$+ 


LITERAL 

RST_NT_OVERHEAD = 13,  ! Number of bytes in NT record excluding those 
! taken up x the name. (So that this 
! number + .NT_PTRC NT_NAMES_CS ] gives 
! the Length of the NT record in bytes.) 
! (This is solely for the benefit of routines 
! unlink _nt_recs, add_nt, and add_gst_nt.) 
RST_NT_SIZE = 28; ! A static NT record would take a max # of bytes. 

! (Dynamically-allocated ones usually take less). 

STRUCTURE 

RST_NT C off, pos. siz ext N=1, unit=1 ] = 

CN * RST_NT_SIZE 


qeein 


EXTERNAL LITERAL TBKS$_RST_BEGIN; 
RST_NT + TBKS_RST_BEGIN 

) + offeunit 

END <pos, siz, ext> 


Access to an NT chain is via a ‘hash’ vector. 

Conceptually, this is a vector of RST-pointers, and 

we define the following macro to declare REFs or occurrences 
of these elements.  <escouse we may decide 

to change their representation) 
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MACRO 
NT_HASH_RECORD = VECTORC1,WORD) 2; 


NT records have the following fields. 


' 

i 

! 

! Note that NT_FORWARD must be the first 

! field in the-record so that unlink_nt_recs 
} cen Sie oe FORWARD and a given entry 

1 


in the NT SH~ VECTOR. 
FIELD 
est NT_FIELD_SET = 
! wee® Some fields (up to NAME_ADDR) must be alligned 
i with the corresponding Ones in RST_MC structures. 
NT_FORWARD =C 0,0,16,0 1, ! Wort NT record in hash chain. 
' FORWARD must be first. See above. 
NT_TYPE =C 2,0, 8.0], ! DST record type Pte GA sires SRM), 
' ar unused if NT 
NT 1S_ GLOBAL = ste Vet De ' Whether or not the- symbol is GLOBAL. 
T-not_ free 3 als Sen Bs ' Used in MCs but not 
NID “IS_BOUNDED = ote tal Ba } Unsed 1 oe only. 2 syabel® s 
! an re 
NT_DST_PTR zs f £-8 +358 : ! relator to osenctatel DST record. 
NT_GBL_VALUE = 4,0,32,0 J, ! Value of symbol when it 
! is bound only to a GST record. 
NT_UP_SCOPE =C 8,0,16,0 ], : Pointer to NI record for s mboL 
! that is "woeve this as far as 
' scope is concerned. 
NT_BACKWARD = f 10,0,16,0 } ! Beckuerd NT hash “chain Link. 
NT_NAME_CS 12,0, 8,0 ! Name of symbol is a counted string. 
' A dotted reference to this field picks 
! up the count, an undotted one 
' addresses the counted string 
NT_NAME_ADDR = ({ 13,0, 8,0 ] ! The name string | teel An Sindotted 
! reference, fo this fi eld addresses 
' onty the MC name, a dotted reference 
! picks up ~F Ist character of the name. 
TES; 
'¢ 


t You define an occurrence or REF to an NT record via: 


MACRO 
NT_RECORD = RST_NTC RST_NT_SIZE, BYTE] FIELD( NT_FIELD_SET ) 3%; 


eevee 
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ANS 
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le4 
The Static Address Table (SAT) is a vector of 
ng 


fixed-size records (blocks) with the follow 
ormat: 


'<byte><byte>! <byte><byte>! 


' Se me ee oe Se oS ' 
NT=pointer ! 


lower bound address i 


upper bound address i 


The lower and upper bound address fields contain the 
beginning and ending virtual addresses which were 
bound to the symbol by the Linker. 

The NT=pointer field contains an RST-pointer into 

the name table (NT) for the NT entry which corresponds 
to this symbol. 


Overall Structure: 


Logically, the SAT is a sequence of fixed-size records 
ordered on the _UB field so that we can search them sequentially. 
Physically the storage is actually discontiguous, 
space being associated with the module the space was allocated 
on behalf of. Sequentially access to the SAT is that which 
is provided and defined by GET_NEXT_SAT in the following 
manner: 


1) call GET_NEXT_SAT( SL_ACCE_INIT ) 
to set up to begin scanning the SAT 
n 
2) call ptr = GET_NEXT_SAT( access_type ) 


to have ‘ptr’ set to the next SAT record, where 
the notion of ‘next’ is defined by ‘access_type'. 


the 


Currently 3 access types are defined. _RECS and _SORT both 
ask for the next sequential record in a togtcas sense. (i.e. 
recore marked for deletion are quietly skipped over). The ending 
criterion for _RECS access is that there are no more records left, 
while _SORT actos. expected to be used with the ‘shell* sort, 
ends each time Like _RECS does but at that time causes 
the access routine to restore the context which it saved after 
the last _SORT call so that subsequent _RECS calls scan from 
where they cert Hy last t me. 
In both cases s returned in ‘ptr’ when 
there are no more records for the indicated access type. 


For the type of sequential access we need when moving 
endangered SA /LVT records to storage not _DYIN 

we also define a third access mode called SL_ACCE_FREE. 
This mode asks for modules _IN_RST AND _IS_DYING fo 
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be skipped over so that only pointers to ‘safe’ records 
are returned. 


In all cases, the same _INIT code must be used to 
"start off' the access sequence. and no concurrent access (ng 
is allowed except for the Limited type supported via RECS/SORT. 


LITERAL 


SL_ACCE_INIT = 0, ! See above. ‘'SL"’ ==> SAT/LVT 
SL_ACCE_RECS = 1, 
SL_ACCE_SORT = ¢: 
SL_ACCE_FREE = 3; 
‘+ 


! SAT/LVT Correspondence 


i] 

1 

1 

} While the SAT and LVT are as similar in structure as they 
! are now, the two are manipulated by the same routines as much 

! as possible. This will remain OK as cone as the fields which 
must correspond still do. See the ‘‘Implic 

' 


it Inputs"’ section 
! of the common routines for details. 


SAT records have the following fields. 


FIELD 


set SAT_FIELD_SET = 

! wee The SAT and LVT structures must be alligned so that 
the _NT_PTR fields match, and so that the _|B and _VALUE 
fields Overlap. The latter must be true only as Long 
as the two share a common sort routine which relies on 
this allignment. The former must be true as tong as 
the two share any routines which access SAT_NT_PIR 
(COMPRES_SAT_LVT, DELE_SAT_LVT, etc). 


SAT_NT_PTR = f 9-0.16-0 : ! Points to associated NT record. 
SAT_LB = .0,32,0 J, ! Lower bound static address. 


-_ SAT_UB =C 6,0,32,0 ] ! Upper bound static address. 


'¢ 
' You declare an occurrence or REF of an SAT 
! the macro, SAT_RECORD. If you want the 2S 
a@ pointer to such a thing, use Zsize( SAT_ 


LITERAL 
RST_SAT_SIZE = 10; ! Each SAT record takes this many bytes. 


MACRO 
SAT_RECORD = BLOCKC RST_SAT_SIZE, BYTE J] FIELD( SAT_FIcLD_SET ) 2, 


1S-se 83p7138e 53:97:58 “ANSEL BASS cPR ave Sars fexcie.reas1 2% 13} 
0817 0 SAT_POINTER = REF BLOCK RST_SAT_SIZE, BYTE J %; 
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[=] 


+ 
' The Literal Value Table (LVT) is : vector of 
! Ly pak ze LVT records each of which has the 

following format: 


'<byte><byte>!<byte><byte>! 

' (oe om ee we we cm ee me ae om ae oe 4 
NT-pointer | 
Literal value 


4 

' 

' 

1 

' 

1 

1 

' 

' 

' 

' 

' 

' 

! The value field contains the longword value 

! which is bound to the Lit ° 

! The NT-pointer is an RST-pointer to the NT record 
for this symbol. 

i] 
1 
' 
i] 
4 
' 
' 
' 
a 
4 
‘ 


i Overall Structure: 


is a sequence of fixed-size records 

ld oe that we can search them sequentially. 
& 

th 


ee ee ean = 
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! Logically, the LVT 
! ordered on the _VALUE fi 
! Physically the Storage is actually discontiguous, 


e 
s 
! space being associated with the module the space was allocated 
' on behalf of. Sequentially access to the LVI is that which 

! is provided and defined by GET _NEXT LVI using the same 


' control Literals and the same mechanisms as are described 


SEELESE 


! for the SAT, above. 


FIELD 
LVT_FIELD_SET = 
SET 


! #wee* The SAT and LVT structures must be alligned so that 

the _NT_PTR fields match, and so that the _LB and _VALUE 
fields Overlap. The Latter must be true only as ling 

as the two share a common sort routine which relies on 
this allignment. The former must be true as bong as 

the two share any routines which access SAT_NT_PIR 
(COMPRES_SAT_LVT, DELE_SAT_LVT, etc). 


LVT_NT_PTR = f 9-0-1868 }: ' Pointer to associated NT record. 
reser av ACUE = eVebte ! Value bound to the Literal. 
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'¢ 
You declare an occurrence or REF of an LVT datum via: 


SOOO SCOCOCOOOOCOOOOOOOSOOOOSOOOOOOOOOOoOSoO 


SSSEuee: 


LITERAL 


CococD 
~“ 
-—o 


RST_LVT_SIZE = 6; ! Each LVT record takes this many bytes. 


'¢ 
: LVT records have the following fields. 


MACRO 
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0875 0 LVT_RECORD = BLOCKE RST_LVT_SIZE, BYTE ] FIELD( LVT_FIELD.SET ) 2; 
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le+ 
i BLISS uses ‘non-standard’ DST records to encode 
i moet 97 its local symbol information. These records 


' ar Me ag DST records ,2gent that the TYPE 
information is variable-sized. 


FIELD 
' BLZ_FIELD_SET = 
BLZ_SIZE =C 0,0, 8,0], ! First byte is record size in bytes. 
! The next byte contains DSCSK_DTYPE_Z, or we 
! wouldn't be applying this stfucturé to a given 
! DST record. 
BLZ_TYP_SIZ *{ 2,6, 6.8 1, Type yw dk. takes up this 
man 
BLZ_TYPE =f 3.8, 6.0 J i whi ich ty type "of type sere 
i this corresponds to 
BLZ_ACCESS = f $-8- g.0 }. i access field. 
BLZ2-STRUCT = 5,0, ° Type of STRUCTURE reference. 
! see* The following only work when BLZ_TYP_SIZ is 3. 
BLZ_VALUE = f 6.0.36 68 ° ! DST VALUE field. 
BLZ"NAME_CS = (10,0, 8,0 J, ! The symbol name is a counted string. 
! A dotted reference to this field 
' picks up the count, an undotted 
' one ederesses a | soygtes string. 
BLZ_NAME_ADDR = (11,0, 8,0 ] ! The name string itself. An undotted 
i reference is the address of the name, 
Tes; ! a dotted one is the ist character. 


1+ 
} You declare a REF to a BLZ_DST datum via: 


LITERAL 
BLZ_REC_SIZ = 38; ! Each DST record is at most 38 bytes long. 


MACRO 
BLZ_RECORD = BLOCKEC BLZ_REC_SIZ, BYTE] FIELD( BLZ_FIELD_SET ) 2%; 


'¢ 

' The ty e zero su 

| os Get lacd ie TTP 

i must be within the following 
‘ range. 


LITERAL 


! Type Zero Sub-Types: 
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BLZ_LOWEST 


BLISS_Z7_FORMAL 
BLISS~2-SYMBOL 


BLZ_HIGHEST 
End of TBKRST.REQ 
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! Lowest variable type we support. 


! poner ietian of a ROUTINE formal. 
' A BLISS LOCAL symbol. 


! Highest variable type we support. 
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literal 
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TBKGEN.REQ = require file for vax/vms TRACE facility 


MODIFIED BY: Dale Roedger 29 June 1978 
This file was taken from DBGGEN.REQ on 8 March 1978 


29-JUN-78 DAR Added Literals for COBOL and BASIC. 

ptyout width =132, ! standard TTY putput width. 

fatal _bit =4, ! mask for fatal bit in error codes 

add_the_offset =1, ! add offset to value 

sub_the_offset =0, ' subtract offset from value 

upper_case_dif =‘a' - ‘A’, ! difference between ASCII representation of upper and lower case 
ascii_offset =%0'60', ! offset from numeric value to ASCII value 


lee 
ASCII character representations 


Linefeed =%0'12', ! ASCII representation of Linefeed 

carriage _ret =%0°15', ! ASCII representation of carriage return 
asc_at_sign =ZASCII ‘a’, ! ASCII representation of an at sign 
asc_clos_paren =ZASCI] ')', ! ASCII representation of closed parenthesis 
asc_comma =ZASCII ‘,', ! ASCII representation of a comma 

asc_minus =ZASCII ‘=', ' ASCII representation of a minus ston 
asc_open_paren =ZASCII ‘(', ! ASCII representation of open parenthesis 
asc_percent =ZASCII ‘2', ' ASCII representation of a percent sign 
asc_period =ZASCII ‘.', ' ASCII representation of a period 

asc_plus =ZASCII ‘+', ! ASCII representation of a plus sign 
asc_pounds =ZASCII a ' ASCII representation of a pounds sign 
asc_quote =ZASCII ‘'' ! ASCII representation of a quote character 
asc_space =ZASCII ' ° ! ASCII representation of a space 
asc_sq_clo_brak =ZASCII pe ' ASCII representation of a closed square bracket 
asc_sq_opn_brak =ZASCII ‘C', ! ASCII representation of an open square bracket 
asc_t =ZASCII ' 7 ! ASCII representation of a tab 
asc_up_arrow =ZASCII ‘*' ! ASCII representation of an up arrow 
not_an_exc = 0, ! Line number searching for pc 

trap_exc 2 i, ' pc of trap searching for Line number 
fault_exc = ¢: } PS of fault searching for Line number 
Lookup_exc = 3; ! Like TRAP only don't do val_to_sym again. 
lee 


names of module types 


macro_module 
fortran_module 
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bes c_module 
pli_module 
pascal _ module 
c_module 
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rpg_module = 8. ! module written in RPG 
ada_module = 9, ! module written in ADA 
e+ 

Language names and MAX_LANGUAGE 

macro_lang =macro_module, ! MACRO 

fortran_lang =fortran_module, | FORTRAN 

bliss_lang =bliss_module, ! BLISS 

cobol_Llang =cobol_module, ! COBOL 

basic lang =basic_module, ! BASIC 

pl 2teng =pli_module, ' PLI 

pascal_lang =pascal_module, ! PASCAL 

c_lang =c_module a: 

rpg_lang =rpg_module, ' RPG 

ada_lang =ada_module, ! ADA 

max_ language = 9; ! Languages 0 - 9 


END OF TBKGEN .REQ 
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TRACE Version 1.0 = Kevin Pammett, 8-march-1978 


1 
' 
' 
} TBKSER.REQ = definitions file for calling system services 
' 


Added a few macros and Literals from DEBUG require files 
we don't want to drag along with TRACE. 


false = 0 & 
repeat = while 1) dox, 


$fao_stg,count (string) = 
i $fao_stg_count makes a counted byte string out of an ASCII string. 
! This macro is useful to transform an fao control string into the 
! address of such a string, whose first byte contains the length of 
the string in bytes. 
UPLIT BYTE (XCHARCOUNT (string), %ASCII string)%, 
$fao_tt_out (ctl_string) (] = 
i $fao_tt_out constructs a call to fao with a control string, 
! and some orpnense to the control string. 
This formatted string is then output to the output device. 
tbk$fao_out ($fao_stg_count (ctl_string), %REMAINING)%, 
Sfao_tt_cas_out (ctl_string_adr) () = 
i $fao_tt_cas_out constructs a call to fao with the address of a 
' control string, and some arguments to the control string. This formatted 
} string is then output to the terminal. 
tbk$fao_out (ctl_string_adr, %REMAINING)2, 
Sfao_tt_ct out (ctl_string) = 


i $fao_tt_ct_out constructs a call to fao with a control string. 
This formatted string is then output to the terminal. 


tbk$fao_out ($fao_stg_count (ctl_string))%, 
Sfao_tt_ca_out (ctl_string_adr) = 

i $fao_tt_ca_out calls fao with the address of a 

! control string. This formatted string is then output 

to the output device. 


tbk$fao_out (ctl_string_adr)%; 


! END OF TBKSER.REQ 
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